﻿Public Class vdoConsoleForm

    Public id As Integer = 0

    Private Sub vdoConsoleForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Public Sub handlePacket(ByVal p As CPacket)
        Select Case p.GetID
            Case 6
                Select Case p.GetSubPacketType
                    Case 1 '// line out
                        Me.ListBox1.Items.Add(p.UnpackString)
                        'Me.ListBox1.Items(ListBox1.Items.Count-1)
                        Me.ListBox1.SelectionMode = Windows.Forms.SelectionMode.None
                        Me.ListBox1.SelectedItem = Me.ListBox1.Items(ListBox1.Items.Count - 1)
                End Select
        End Select
    End Sub

End Class